home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Presenta / EV2FREE.ZIP / EFREE3.ICZ / EDLLDRV.FRM < prev    next >
Text File  |  1995-03-06  |  1KB  |  46 lines
  1. VERSION 2.00
  2. Begin Form dlldde 
  3.    Caption         =   "dlldde"
  4.    ClientHeight    =   1296
  5.    ClientLeft      =   3000
  6.    ClientTop       =   1524
  7.    ClientWidth     =   2532
  8.    Height          =   1716
  9.    Left            =   2952
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "dll"
  12.    ScaleHeight     =   1296
  13.    ScaleWidth      =   2532
  14.    Top             =   1152
  15.    Width           =   2628
  16.    Begin TextBox Data 
  17.       Height          =   372
  18.       Left            =   480
  19.       TabIndex        =   0
  20.       Top             =   240
  21.       Width           =   972
  22.    End
  23. End
  24. Declare Function SetParent% Lib "User" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer)
  25.  
  26. Sub Form_LinkExecute (cmdstr As String, cancel As Integer)
  27.   em$ = cmdstr
  28.   Call dllmgr(1, em$)
  29.   cancel = 0
  30. End Sub
  31.  
  32. Sub Form_Load ()
  33.   If App.PrevInstance Then End
  34.   t242.chr242 = Chr$(242)
  35.   t243.chr243 = Chr$(243)
  36.   t244.chr244 = Chr$(244)
  37.   t245.chr245 = Chr$(245)
  38.   t246.chr246 = Chr$(246)
  39. End Sub
  40.  
  41. Sub Timer1_Timer ()
  42.   'Call sendevent("Ti")
  43.  
  44. End Sub
  45.  
  46.